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> 

> Module: Cfflnd2 { continuation of Cmnd.Rssem } 

> 

> This module contains all the code associated MJith processing 

> the System commands. 

> 

> PROCEDURE Sys_Bead 

> PROCEDURE Sys_Write 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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>>>>>>>>>. >>>>>.^ >>>>>> >>>.i> >>>>>>>> 
> 

> Procedure: SysJ^ead 

> This procedure is the System Read command for Uidget. It 

> allows the host to read up to 8 sequential blocks without 

> sending any additional commands. Between each block status 

> is passed back to the host with the data, and the host must 

> set CHD before the next block can be read. In genera I the protocol 

> is about the same as in Pro_Read. 
> 

> inputs: { none ) 

> 

> Outputs: { none } 

> 

> Algorithm: 

> 

> BEGIN 

> LdJ_gclBlk< Wid_LogJOf fset > 

> Count := Ld_Paraffl1.FirstParam 

> Offset := 

> BlockNumber := LoadJ_og i ca I 

> ClrNormStat 

> 6et_Type_Check< BlockNumber + Count > 

> Seek_Type := Recess 

> DiskStat.l-lrjOp := False 

> OverLap 

> IF NOT< ReadBlock > 

> THEN 

> SS_RdErr 

> Goto ProJ^d-Exit 

> i4HILE Riways DO 

> BlockNumber := BlockNumber + 1 

> IF NOT<: SrchJCache > 

> THEN OverLap 

> IF NOT< Read_Fast ) 

•> THEN Goto Pro_Rd_Exit 

> ELSE 

> IF BlkStat.Bad_Block 

> THEN GoTo Pro_Rd_BB 

> IF < Count > 1 > 

> THEN 

> Command-Pending^ IBsy := True, Response := Sys_Rd_Besp 

> RdJ_eaye2 



;> ELSE Rd_Leave 

; > Count := Count - 1 

; > END 

• ■^ 
t 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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Sys_Read : 
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Cal 1 


Sys^etUp 


Sys JJdJSeek : 


Ld 


Seek-Type, *flccess 




Rnd 


Disks tat, *$FF-WrJOp 




rnl 1 

! 1 


^1 If; Rill ^aok 




\^KA 1 i 


RanHR i nr-k 
rkeUuo 1 LJl_Pv 




Jr 


Hz,Sys_Rd_Hext 




Jr 


Sys_RdErr 


Sys_Rd J_p : 


Cal 1 


Sys_lnc_Blk 




. ii^ 






find 


!rO,«$3F ;iiiask off head value 




Ld 


Sector, !rO 


OyS_JriO_UVrLp . 


Tnl 1 

LrU 1 i 


neau_rus I, 




Xtr. 
"LfP 


t., oyi—nu—iirr 


bys_jid_jiext i 


TiR 


DikStat,*B_Block j check it bad block came back! 
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i ri 


Lir'k i n-i-^iR ftPmnH PianH i nn-i- i R-eti i 




Djnz 


lr4,Sys_RdJ1ore 




In 


iia_L.eave 


Sys_Rd_l1ore : 


Cai 1 


Rd_Leave 1 
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Sy£_RdErr : 


Push 


fr4 ;save block count 




Cal I 


ReadJCoffiinon ; retry for exception handling 


Sys_BErr 1 : 


Pop 


Ir4 ;get block count 




Push 


Flags jsave result 




Push 


!rO jsave return code 




Call 


Load_Loqical ; restore block number sequence 




Pop 


IrO 




Pop 


Flags 




Jr 


N2,Sys_Rd^ext 




Call 


Da ta_£x_Hand 1 er 




Jr 


SysJChk_Ftl 


Sys_Rd_BB: 


Push 


!r4 ;saue block count 




Call 


Pro-Bd_BB 




Jr 


Sys_BErr t 



SysJChk_Ftl: Call 
Jp 



ChkJ^atalStcit 

NZj,Rd^eave ; get out if fatal error 



Call ClrNormStat 

Jr Sys_Rd_H1 

Chk_FatalStat; Ld !r2,«.HIBVTE. CStatusO 

Ld !r3,«.L0WBVTE. CStatusO 

Lde Ir0,§!!r2 ;get 1st byte of standard stat 

Tro !rO,*Op_Fai led ; check if operation failed 

Ret 

SysJSetUp: Call flck_Read 

Call CIrHormStat 

Ld !rO,«Sys_LogJOffset 

Call Ld_LgclBlk 

Call Ld_Param1 

Or !rO, IrO ; check for zero count 

Jr Nz.SysJSetl 

Call Rbort 

SysJSetl: Ld !r4, !rO ; Count := . . . 

Ca 1 1 Load_Log i ca I 

Ld !rOJr4 

Dec !rO ; account for numbering 1..n 

fidd IrEJrO 

fide ?rD,«0 

fide }rC,«0 

Ld !r2.».H!BVTE. Get_TMpe_Check 

Ld fr3,».L0UBVTE. Get_fypeJCheck 

Col I BonkJCai I 

Cai i Load-Logical 

Ld Da ta-Type , *User -Type 

Ld Wrk_lo+$C,».HIBYTE. WBufferl ;qet ready for more writes 

Ld Wrk_lo+$D,«.L0WBVTE. UBufferl 

Ret 

Sys_Riu_Seek : Push !r4 ;saye state 

Ld lr2,«.HIBVTE. OverLap 

Ld !r3,«.L0WBVTE. OMerLop 

Cal I BankJCal I 

Pop lr4 

Call Load_Logical 
Ret 

SMS_lnc_Blk: Add !rE.*$01 ;BlockHufflber := BlockHuraber + 1 

Rdc !rD,«0 

fide !rC,*0 

Ld !r2,«.HIBVTE. LogicalBlock 

Ld !r3,#.L0UBVTE. LogicalBlock 

Ld !r1,«3 

Ld !rO,«WrkJSys+$OC 



Sy£_lnc_Lp: Ldef 
Djnz 



§« !r2,e!r0 
!r1,Sys_lncJ.p 



Call SrchJCache ;get the ne«j physical adr 

Tm BlkStat,*CachSeek+CachHdChg ; check for Head change 

Ret 
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> 

> Procedure: Sys-Write 

> 

> This procedure is the System i4rite command for i4idget. In 

> general it is a major departure from the ProFlle write 

> protocol: Status is not sent back to the host unless 

> there is useful information in that status - the fact that 

> there were no errors in a block transfer Is communicated 

> to the host via Response Byte that is handshaken across 

> at CMD/BSV time. If an error has occur ed^ than the host 

> is to recognize this state and come back to read the status 

> from the controller, otherwise it is assumed that the next 

> thing that the controller wants is write data. Mote that 

> the second handshake < data received acknowledgment > 

> has been removed from this protocol . 
:> 

> Inputs: { none ) 

> 

> Outputs: { none } 

> 

> fl I gor i thm : 

> 

> BEGIN 

> Ld_LgclBlk< Mid_LogJDf fset > 

> Count := LdJParamI -FirstParam 

> BlockHumber := LoadJLogicai 

> CIrNor-fflStat 

> BlockHumber- := BlockHumber 

> Get_Type_JCheck< BlockHumber + Count > 

> Seek_Type := flccessjOffset 

> Disks tat. WrJOp := True 

> OverLap 

> IF HOT< ReadBlock > 

> THEN 

SS_RdErr 

> Goto Pro_Rd_£xit 

> WHILE Always DO 

> BlockHumber := BlockHumber + 1 

> IF HOT< SrchJCache > 

> THEN 0<,«erLap 

> IF NOT< WritejCommon > 

> THEH Data_Ex_Hand}er< Mr JCommon . Error . Code ) 

> IF HOT< Read_Fast ) 

> THEH Goto Pro_Rd_Exit 

> ELSE 

> IF BIkStat. Bad-Block 

> THEN GoTo Pro_Rd_BB 

> IF < Count > 1 ? 

> THEH 

> Command-Pendingj, IBsy := True, Response := SysJ^lr-Resp 

> Rd_Leave2 



ELSE Rd-Lecwe 

> Count := Count - 1 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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Sqs-JJr i te : 

Ld Mrk_lo+$fl,«Sys-Wr_Resp 

Cal I Sys-JSetUp 

SysJ4r^eek: Ld Seek_Type,«flcce£s+Of fset 

Or Disks tat, «MrJOp 

Call Sys_Rfl>JSeek 

Tffi BlkStat,»B_Block ; check If bad block 

Jr Nz,SysJ4r_BB 



Call WriteBlock 

Jr Nz,SysJ4r_Next 

Jr SysJWrErr 

Sys-i-Jr-Lp: Cal I Sys_lnc_Blk 

Jr Nz , Sys_Wr JSeek 



Tm DiskStat^«Of fsetJOn ; check for offset on al I writes 

Jr 2,SysJ4rJSeek 





find 


}rO.*$3F jfflQsk off head value 




Ld 


Sector, !rO 


Sys_Mr JOMrLp : 


Tm 


BlkStat,»B_Block ; check if bad block 




Jp 


Hz,Sys_i4r_SB 




Cal 1 


Wri teJFast 




Jr 


2^SysJ4rErr 


SysJ4rJ1ext: 


Ld 


Mr k_ 1 o+$fl , «SysJ4r _Resp 




Ld 


Wrk_ 1 o+$B . «Cmnd_Pend i nq+ 1 Bsy+Nu 1 1 i Hr 




Ld 


Mrk_lo+$C>.HIBVTE. WBufferl 




Ld 


Urk-lo+$D,«.LOWBVTE. WBufferl 




Djnz 


! r4 , Sys-Hr-More 




Ld 


Mrk-I o+$fl, «Sys_MrEnd-JJesp 


Sys_Mr_HS: 


Ld 


Mrk_l o+$B, «Cfflnd J=>end i ng+ 1 Bsy 




Call 


Rd_Leaye2 




-«P 


RdJLeave 


Sys_UrJ1ore : 


Cal I 


Clr_Bsy 




Jr 


SysJ«lr J_p 



Sys_WrErr: Call Wr-Coromon ; re try Igt exception handling 

Jr Nz,SysJ^r_Next 



Call Data_Ex_Handler 
Sys_l4rChk: Call Chk_FatalStat 

Jr Hz,Sqs_i4rE1 





Cat 1 


ClrHormStat 




Jr 


Sys_14r_Next 


Sys_WrE1: 


Ld 


Wrk_l o+$fl . «Sys_MrEx_Resp 




Jr 


Sys_Ur_HS 


Sy£J4r_BB: 


Call 


Mr_BBIock 




Jr 


Sys_WrChk 
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